home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO018.dsk / PENNY.ARCADE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  119 lines
  1. 100  REM 
  2. 110  REM     PENNY ARCADE
  3. 120  REM 
  4. 130  REM           BY BILL BUDGE
  5. 140  REM 
  6. 1020  POKE 175,32: POKE 176,19: POKE 105,32: POKE 106,19
  7. 1030  POKE 107,32: POKE 108,19: POKE 109,32: POKE 110,19
  8. 1040  POKE  -16298,0: HOME 
  9. 1050  POKE 216,0: REM   OFF THE ON ERR
  10. 1100  TEXT : CALL  -936: PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT "             PENNY ARCADE": PRINT 
  11. 1110  PRINT "                  BY": PRINT : PRINT "              BILL BUDGE": PRINT : PRINT : PRINT 
  12. 1120  PRINT "  COPYRIGHT 1979  APPLE COMPUTER INC."
  13. 1130  PRINT : VTAB 23: PRINT "     PRESS 'RETURN' TO CONTINUE...";: GET A$: IF  ASC(A$) < >13  THEN 1130
  14. 1140  HOME 
  15. 1150  VTAB 3: HTAB 11: PRINT "*** INSTRUCTIONS ***"
  16. 1160  PRINT 
  17. 2000  PRINT : PRINT " THE OBJECT OF THE GAME IS TO GET THE": PRINT 
  18. 2010  PRINT " BALL INTO THE OPPONENTS GOAL. DO THIS": PRINT : PRINT " FIVE TIMES AND YOU WIN!  USE THE GAME": PRINT 
  19. 2020  PRINT " PADDLES TO DEFEND YOUR GOAL.": PRINT : PRINT : PRINT " NEXT YOU WILL BE SHOWN A SERIES OF": PRINT 
  20. 2030  PRINT " PLAYING FIELDS -- TO SELECT ONE, PRESS": PRINT : PRINT " ANY KEY WHEN THE FIELD THAT YOU WANT": PRINT 
  21. 2040  PRINT " IS DISPLAYED."
  22. 2050  PRINT : VTAB 23: PRINT "      PRESS 'RETURN' TO CONTINUE...";: GET A$: IF  ASC(A$) < >13  THEN 2050
  23. 4090  CALL  -936
  24. 5000  CALL 7062: CALL 7462: FOR I = 1 TO 2000: NEXT I: CALL 7062
  25. 5010  GOSUB 5900
  26. 5020 GAME = 0
  27. 5030  POKE 224,182: POKE 225,27
  28. 5040  CALL 6994
  29. 5050  VTAB 23: HTAB 13: PRINT "BUMPER POOL "
  30. 5060  GOSUB 5200
  31. 5070  POKE 224,98: POKE 225,28
  32. 5080  CALL 6994
  33. 5090  VTAB 23: HTAB 13: PRINT "   HOCKEY   "
  34. 5100  GOSUB 5200
  35. 5110  POKE 224,158: POKE 225,28
  36. 5120  CALL 6994
  37. 5130  VTAB 23: HTAB 13: PRINT "  SCRAMBLE   "
  38. 5140  GOSUB 5200
  39. 5150  POKE 224,250: POKE 225,28
  40. 5160  CALL 6994
  41. 5170  VTAB 23: HTAB 13: PRINT "   TENNIS   "
  42. 5180  GOSUB 5200
  43. 5190  GOTO 5020
  44. 5200 GAME = GAME +1
  45. 5210  FOR I = 1 TO 100
  46. 5220 X =  PEEK( -16384)
  47. 5230  POKE  -16368,0
  48. 5240  IF X < = 127  THEN 5270
  49. 5250  POP 
  50. 5260  GOTO 5300
  51. 5270  NEXT I
  52. 5280  CALL 7062
  53. 5290  RETURN 
  54. 5300  PRINT "WHAT DIFFICULTY LEVEL"
  55. 5310  INPUT "(1-EASIEST, 10-HARDEST)";DFF
  56. 5320  IF DFF >10  OR DFF <1  THEN 5300
  57. 5330 S1 = 0:S2 = 0
  58. 5340  POKE 228,127: POKE 229,0
  59. 5350 UPDOWN = 120
  60. 5360 DFF = 10 +DFF *5
  61. 5370  POKE 6762,DFF: POKE 6800,DFF
  62. 5380  POKE 6723,UPDOWN: POKE 6727,UPDOWN
  63. 5390  POKE 6732,256 -UPDOWN: POKE 6736,256 -UPDOWN
  64. 5400  IF GAME = 2  THEN 5440
  65. 5410 LE = 7:RE = 247
  66. 5420  POKE 6771,189: POKE 6830,189
  67. 5430  GOTO 5460
  68. 5440 LE = 90:RE = 166
  69. 5450  POKE 6771,203: POKE 6830,203
  70. 5460  POKE 6589,LE: POKE 6652,RE
  71. 5470  POKE 6680,LE -3: POKE 6684,LE +3: POKE 6688,RE -3: POKE 6692,RE +3
  72. 5480  INPUT "SHOULD THERE BE GRAVITY?";A$
  73. 5485  HOME 
  74. 5490  POKE 65,27: POKE 67,27
  75. 5500  PRINT 
  76. 5510  FOR I = 27 TO 11  STEP  -8
  77. 5520  POKE 66,I: POKE 68,I
  78. 5530  CALL 6526
  79. 5540  NEXT I
  80. 5545  VTAB 23
  81. 5550  PRINT "PLAYER #1";: HTAB 27: PRINT "PLAYER #2"
  82. 5560  POKE 224,128: POKE 225,38: POKE 226,128: POKE 227,38
  83. 5570  VTAB 24: HTAB 4: PRINT S1;: HTAB 31: PRINT S2;
  84. 5580  IF S1 = 5  OR S2 = 5  THEN 5840
  85. 5590  IF  LEFT$(A$,1) = "Y"  THEN 5700
  86. 5600  FOR I = 1 TO 200
  87. 5610  CALL 6526
  88. 5620  NEXT I
  89. 5630  CALL 6748
  90. 5640  GOSUB 5750
  91. 5650  POKE 229,0
  92. 5660  IF  PEEK(224) <127  THEN S2 = S2 +1
  93. 5670  IF  PEEK(224) >127  THEN S1 = S1 +1
  94. 5680  CALL 6882
  95. 5690  GOTO 5560
  96. 5700  FOR I = 1 TO 200
  97. 5710  CALL 6526
  98. 5720  NEXT I
  99. 5730  CALL 6786
  100. 5740  GOTO 5640
  101. 5750  FOR I = 1 TO 2
  102. 5760  FOR J = 1 TO 10
  103. 5770 Z =  PEEK( -16336) - PEEK( -16336)
  104. 5780  NEXT J
  105. 5790  FOR J = 1 TO 5
  106. 5800 Z =  PEEK( -16336) - PEEK( -16336) + PEEK( -16336) - PEEK( -16336)
  107. 5810  NEXT J
  108. 5820  NEXT I
  109. 5830  RETURN 
  110. 5840  PRINT : INPUT "MORE PONG?";A$
  111. 5845  HOME 
  112. 5850  PRINT : PRINT : CALL 7062
  113. 5860  IF  LEFT$(A$,1) = "Y"  THEN 5020
  114. 5870  POKE  -16303,0: POKE  -16298,0
  115. 5880  PRINT "<CTRL-D>-STARTUP" 
  116. 5890  END 
  117. 5900  REM 
  118. 6020  POKE  -16297,0: POKE  -16301,0: POKE  -16304,0
  119. 6030  RETURN